home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / cli / mx2src.arc / BITSTUFF.DEF < prev    next >
Text File  |  1989-01-05  |  812b  |  24 lines
  1. DEFINITION MODULE BitStuff;
  2.  
  3. FROM SYSTEM IMPORT BYTE, WORD, LONGWORD;
  4.  
  5. PROCEDURE LAnd( op1, op2 : LONGWORD):LONGWORD;
  6. PROCEDURE LOr( op1, op2 : LONGWORD):LONGWORD;
  7. PROCEDURE LEor( op1, op2 : LONGWORD):LONGWORD;
  8. PROCEDURE LShl(number : LONGWORD; numbits : CARDINAL):LONGWORD;
  9. PROCEDURE LShr(number : LONGWORD; numbits : CARDINAL):LONGWORD;
  10.  
  11. PROCEDURE WAnd( op1, op2 : WORD):WORD;
  12. PROCEDURE WOr( op1, op2 : WORD):WORD;
  13. PROCEDURE WEor( op1, op2 : WORD):WORD;
  14. PROCEDURE WShl(number : WORD; numbits : CARDINAL):WORD;
  15. PROCEDURE WShr(number : WORD; numbits : CARDINAL):WORD;
  16.  
  17. PROCEDURE BAnd( op1, op2 : BYTE):BYTE;
  18. PROCEDURE BOr( op1, op2 : BYTE):BYTE;
  19. PROCEDURE BEor( op1, op2 : BYTE):BYTE;
  20. PROCEDURE BShl(number : BYTE; numbits : CARDINAL):BYTE;
  21. PROCEDURE BShr(number : BYTE; numbits : CARDINAL):BYTE;
  22.  
  23. END BitStuff.
  24.